# load packages

pacman::p_load(tidyverse, psych)

### figure A.27 (summary statistics) ----

# load data
urns <- read_rds("data/urns_sumstat.rds")

# summary statistics
describe(urns)

# clean
rm(list=ls())
